home *** CD-ROM | disk | FTP | other *** search
/ MacFormat España 14 / MacFormat n. 14 (Spain) / MacFormat 14.bin / Shareware Internet / HyperCard / XCMD Docs / CompileIt! Source Code / KillCard2 < prev    next >
Encoding:
Text File  |  1995-08-20  |  1.4 KB  |  51 lines
  1. global rgb:R[6]
  2. on KillCard2
  3.   put tbRandom() into rgb.integerType[1]
  4.   put tbRandom() into rgb.integerType[2]
  5.   put tbRandom() into rgb.integerType[3]
  6.   repeat 100
  7.     put the random of 512 into h
  8.     put the random of 342 into v
  9.     SetCPixel h,v,rgb
  10.   end repeat
  11.   put tbRandom() into rgb.integerType[1]
  12.   put tbRandom() into rgb.integerType[2]
  13.   put tbRandom() into rgb.integerType[3]
  14.   repeat 100
  15.     put the random of 512 into h
  16.     put the random of 342 into v
  17.     SetCPixel h,v,rgb
  18.   end repeat
  19.   put tbRandom() into rgb.integerType[1]
  20.   put tbRandom() into rgb.integerType[2]
  21.   put tbRandom() into rgb.integerType[3]
  22.   repeat 100
  23.     put the random of 512 into h
  24.     put the random of 342 into v
  25.     SetCPixel h,v,rgb
  26.   end repeat
  27.   put tbRandom() into rgb.integerType[1]
  28.   put tbRandom() into rgb.integerType[2]
  29.   put tbRandom() into rgb.integerType[3]
  30.   repeat 100
  31.     put the random of 512 into h
  32.     put the random of 342 into v
  33.     SetCPixel h,v,rgb
  34.   end repeat
  35.   put tbRandom() into rgb.integerType[1]
  36.   put tbRandom() into rgb.integerType[2]
  37.   put tbRandom() into rgb.integerType[3]
  38.   repeat 100
  39.     put the random of 512 into h
  40.     put the random of 342 into v
  41.     SetCPixel h,v,rgb
  42.   end repeat
  43.   put tbRandom() into rgb.integerType[1]
  44.   put tbRandom() into rgb.integerType[2]
  45.   put tbRandom() into rgb.integerType[3]
  46.   repeat 100
  47.     put the random of 512 into h
  48.     put the random of 342 into v
  49.     SetCPixel h,v,rgb
  50.   end repeat
  51. end KillCard2